home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / CC_C / 0574.ZIP / TOLOWER.ASM < prev    next >
Assembly Source File  |  1986-08-03  |  297b  |  24 lines
  1. include compiler.inc
  2.     ttl    TOLOWER, 1.03, 08-03-86 clr
  3.  
  4. ;char function - if 'A'-'Z' returns LC equiv, else returns input
  5.  
  6.     dseg
  7.  
  8.     cseg
  9.  
  10.     procdef    tolower, <<chr, byte>>
  11.  
  12.     mov    al,chr
  13.     cmp    al,'A'
  14.     jb    L0053
  15.     cmp    al,'Z'
  16.     ja    L0053
  17.     xor    ax,20h
  18. L0053:    pret
  19.  
  20.     pend    tolower
  21.  
  22.     finish
  23. 
  24.